﻿Public Class LoginForm

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        _myConfig.用户名 = txt用户名.Text
        _myConfig.密码 = txt密码.Text
        _myConfig.每天打招呼的个数 = nm打招呼个数.Value
        _myConfig.每天的留言个数 = nm留言个数.Value
        _myConfig.每天访问空间的个数 = nm空间个数.Value
        _myConfig.每天加为关注的个数 = nm关注个数.Value
        _myConfig.每天加为朋友的个数 = nm朋友个数.Value
        _myConfig.IP地址 = txt代理服务器地址.Text
        _myConfig.IP端口 = txt服务器端口.Text
        If Me.chk代理服务器.Checked = True Then
            _myConfig.是否使用代理服务器 = "1"
        Else
            _myConfig.是否使用代理服务器 = "0"
        End If

        If Me.chk启动自动运行采集功能.Checked = True Then
            _myConfig.登陆后采集的动作 = "1"
        Else
            _myConfig.登陆后采集的动作 = "0"
        End If

        If Me.chk启动自动运行留言功能.Checked = True Then
            _myConfig.登陆后留言的动作 = "1"
        Else
            _myConfig.登陆后留言的动作 = "0"
        End If

        If Me.chk自动登陆.Checked = True Then
            _myConfig.是否自动登陆 = "1"
        Else
            _myConfig.是否自动登陆 = "0"
        End If

        Me.Close()
    End Sub

    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click
        Me.Close()
    End Sub

    Private Sub LoginForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        txt用户名.Text = _myConfig.用户名
        txt密码.Text = _myConfig.密码
        nm打招呼个数.Value = CInt(_myConfig.每天打招呼的个数)
        nm留言个数.Value = CInt(_myConfig.每天的留言个数)
        nm空间个数.Value = CInt(_myConfig.每天访问空间的个数)
        nm关注个数.Value = CInt(_myConfig.每天加为关注的个数)
        nm朋友个数.Value = CInt(_myConfig.每天加为朋友的个数)
        txt代理服务器地址.Text = _myConfig.IP地址
        txt服务器端口.Text = _myConfig.IP端口

        Me.chk代理服务器.Checked = _myConfig.是否使用代理服务器
        Me.chk启动自动运行采集功能.Checked = _myConfig.登陆后采集的动作
        Me.chk启动自动运行留言功能.Checked = _myConfig.登陆后留言的动作
        Me.chk自动登陆.Checked = _myConfig.是否自动登陆
    End Sub

    Private _myConfig As MyConfig
    Public Sub New(ByVal myConfig As MyConfig)

        ' 此调用是设计器所必需的。
        InitializeComponent()

        ' 在 InitializeComponent() 调用之后添加任何初始化。
        _myConfig = myConfig
    End Sub
End Class
